home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / prog / pas_all.zip / TI343.ASC < prev    next >
Text File  |  1991-09-11  |  822b  |  67 lines
  1.  
  2.  
  3.  
  4.  
  5.  
  6.  
  7.  
  8.  
  9.   PRODUCT : TURBO PASCAL                               NUMBER : 343
  10.   VERSION : 2.00
  11.        OS : CP/M-80
  12.      DATE : November 4, 1986                             PAGE : 1/1
  13.     TITLE : RELEASE UPDATE
  14.  
  15.  
  16.  
  17.  
  18.   This is a work-around  for  a problem in the Release procedure of
  19.   version  2.00  of  Turbo Pascal. Use this  procedure  instead  of
  20.   Release.
  21.  
  22.  
  23.   type
  24.     IntPtr = ^integer;
  25.  
  26.   procedure NewRelease(OldHeapPtr : IntPtr);
  27.  
  28.   var
  29.     I : integer;
  30.     X, Y : real;
  31.  
  32.   begin
  33.     if HeapPtr < 0 then
  34.       X := 65536.0 + HeapPtr
  35.     else
  36.       X := HeapPtr;
  37.     I := Addr(OldHeapPtr^);
  38.     if I < 0 then
  39.       Y := 65536.0 + I
  40.     else
  41.       Y := I;
  42.     I := Round(X - Y);
  43.     FreeMem(OldHeapPtr, I);
  44.   end; { NewRelease }
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.